(DEFINE (字符串 S)
 (LET ((ST '始) (C NIL) (NL NIL) (RES NIL))
  (BLOCK TR-STR
   (TRAVEL S 'FOR-INDEX I (SETF C (ELT S I))
    (COND ((EQL ST '始) (COND ((读引号 C) (SETF ST '字串)) (T (RETURN-FROM 字符串 NIL))))
     ((EQL ST '字串)
      (COND ((读反斜线 C) (SETF ST '字串等待)) ((读引号 C) (SETF ST '字符串)) ((读非反斜线任意字符 C) (SETF ST '字串))
       (T (RETURN-FROM 字符串 NIL))))
     ((EQL ST '字串等待) (COND ((读任意字符 C) (SETF ST '字串)) (T (RETURN-FROM 字符串 NIL)))) ((EQL ST '字符串) ST)
     (T (RETURN-FROM 字符串 NIL)))))
  (IF (EQL ST '字符串) ST NIL)))